ext/hmr89.f